﻿Imports System.Data.OleDb

Public Class DalHelper

    Public Shared Sub VoegParameterToe(ByVal command As OleDbCommand, ByVal waardeParameter As Object)
        ' speciale behandeling voor Currency-velden, omdat anders de komma fout staat
        ' dit komt doordat hij normaal de prijs als decimal doorgeeft, maar Access pakt hem als Currency aan
        ' dus zorgen we er hier voor dat er expliciet een Currency doorgegeven wordt.
        If (TypeOf waardeParameter Is Decimal) Then
            Dim param As New OleDbParameter("?", OleDbType.Currency)
            param.Value = waardeParameter
            command.Parameters.Add(param)
        Else
            command.Parameters.AddWithValue("?", waardeParameter)
        End If
    End Sub

End Class
